gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGjssc.asp

    <!-- #INCLUDE FILE="login.asp" -->
<%
	dqw="生成广告位 JS 文件"
	Call Heads_GGclass(dqw)
	
	'///******************************************************************
	'  广告位js生成  文件名：GGjssc.asp  参数：action 为 不同的功能标示
	'******************************************************************/// 

      if trim(request("pid"))<>"" then
      pid=replace(trim(request("pid"))," ","")
      sqladd=" where pid in ("&pid&") "
      end if
      
  if trim(request("a"))="yes" then
      
      Rs.open "Select * From [place] "&sqladd&" order by pid ",conn,3,3,1
      do while not rs.eof 
      pid=rs(0)
      p_name=rs(1)
      p_ename=rs(6)
      
      	Filename="js/"&p_ename&".js"
	    NeiRong=" document.write (""<"" + ""s"" + ""c"" + ""r"" + ""ipt"" + "" lan"" + ""guage"" + ""="" + ""ja"" + ""vasc"" + ""ript"" + "" sr"" + ""c"" + ""="" + """ + DqUrl + "/ad.asp?i="&pid&""" +""><"" + ""/s"" + ""cript"" + "">""); "
	
	    call PubWriteFile(Filename,NeiRong)
	    
	    response.write p_name&" 生成JS成功！<br>"

      rs.movenext
      loop
      rs.close

end if
%>
<%if  trim(request("a"))=""  then
if pid<>"" then%>
准备生成ID为： 的广告位的JS文件。
<BR><BR><a href="?a=yes&pid=<%=pid%>">确定生成</a>

<%else%>

<form method="POST" action="?a=yes">
 
	<p><select size="10" name="pid" multiple style="width:415; height:136">
  <%
  
    sqladd="" 
  
  if isnumeric(trim(request("cid"))) then sqladd=" where Cid ="&Cint(trim(request("cid")))
  
  sql="select Cid,Cname from class "&sqladd&" order by cid"
  set rs=conn.execute(sql)
  do while not rs.eof
    cid=rs(0)
	If AdminClassIfkg(cid)="yes" then '' 只有当该分类有权被当前管理员可管时才显示
	
	sql2="select * from place where cid="&cid
    set rs2=conn.execute(sql2)
    do while not rs2.eof
    pid=rs2(0)
    
%>

	<option value="<%=rs2(0)%>"> <%=rs2(1)%> (<%=rs2(6)%>.js)</option>


 
<%  rs2.movenext
    loop
    rs2.close
    End If
    rs.movenext
  loop
  rs.close
   

 
 
%>		</select></p><p><input type="submit" value="确定生成选中广告位" name="B1">&nbsp;
	<input type="reset" value="重置" name="B2">&nbsp;&nbsp; 可以多选</p>
</form>
<BR><BR>
<a href="?a=yes"><font color="#FF0000">生成全部广告位的JS文件</font></a><font color="#FF0000">
</font>

<p>只有从老版本升级至本版本时才需要执行此操作，正常运行过程中，一般不需要重新生成。</p>
<p>每次更新广告位信息，系统会自动生成JS文件。</p>


<%end if

 end if  
      call close_conn()
%>